home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESGRAF2.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  65 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Graphics Library routines 2 of 5.
  12. ;*    The 3 routines here are together because graf_mouse and graf_handle
  13. ;*    are used by virtually every GEM program, and graf_mkstate is avaiable
  14. ;*    for free because its stack looks the same as graf_handle.
  15. ;*
  16. ;*************************************************************************
  17.  
  18. ;-------------------------------------------------------------------------
  19. ; graf_handle
  20. ; graf_mkstate
  21. ;-------------------------------------------------------------------------
  22.  
  23.           globl     _graf_handle
  24. _graf_handle:
  25.           move.l    #$4D000500,d0       ; AControl  77,0,5,0
  26.           bra.b     graf_hndstate
  27.           globl     _graf_mkstate
  28. _graf_mkstate:
  29.           move.l    #$4F000500,d0       ; AControl  79,0,5,0
  30. graf_hndstate:
  31. ;          .cargs    #8,p1.l,p2.l,p3.l,p4.l
  32.  
  33. p1                =    8
  34. p2                =    12
  35. p3                =    16
  36. p4                =    20
  37.  
  38.           link        a6,#-10
  39.  
  40.           moveq.l    #-10,d1             ;  = intout
  41.           jsr        aes_call
  42.  
  43.           moveq.l    #-10,d1
  44.           lea        p1(a6),a1
  45.           jmp        (a0)
  46.  
  47. ;-------------------------------------------------------------------------
  48. ; graf_mouse
  49. ;-------------------------------------------------------------------------
  50.  
  51.           globl     _graf_mouse
  52. _graf_mouse:
  53. ;          .cargs    #4,num,pform.l
  54.  
  55. num             =    4
  56. pform            =    6
  57.  
  58.           move.l    #$4E010101,d0       ; AControl  78,1,1,1
  59.           lea        num(sp),a1           ; -> intin
  60.           lea        pform(sp),a0       ; -> adrin
  61.           jmp        aes_do
  62.  
  63. ;          end of code
  64.  
  65.